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ABSTRACT 


The  TREET  Programming  Language  and  System,  for  the  manipulation  of 
list  structures,  is  described.  The  statements  of  the  language  are 
procedure-oriented  as  in  ALGOL  or  PL/I  but  are  unusual  for  their  syn¬ 
tactic  simplicity  yet  potential  complexity.  Programs  are  built  as 
sets  of  functions  which  may  be  used  for  their  value  and/or  effect. 

The  list  structures  consist  of  atoms  and  lists.  The  atoms  include 
symbols,  integers,  reals  (optional),  literals,  and  cards,  The  lists 
make  use  of  a  three-address  list  cell.  Two  of  the  addresses  are  used 
in  the  ordinary  fashion  (i.e.  pointing  to  members  and  chaining  list 
cells  together)  while  the  use  of  the  third  is  undefined  (it  is  useful 
for  backward  chaining,  marking,  parent  pointing,  etc.).  Cells  are 
dynamically  allocated  and  are  automatically  reclaimed  as  needed. 

The  TREET  System  is  implemented  in  a  highly  modular  fashion  on 
the  IBM  360  computer  under  the  Operating  System.  Numerous  facilities 
to  access  secondary  storage  and  the  inner  workings  of  the  system  are 


avai lab le . 
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1.0  Introduction 


Numerous  languages  for  the  manipulation  of  symbolic  data  have 
appeared  over  the  last  several  years.  Of  these,  perhaps  the  most 
useful  and  influential  has  been  LISP  1.5  [1].  The  TREET1  system  is 
basically  a  LISP  1.5  type  system,  but  differs  in  several  respects,  the 
most  important  of  which  is  the  source  language.  Other  differences 
include:  1.  types  of  atoms;  2.  the  use  of  a  three  address  list  cell; 

3.  a  macro  assembly  system;  and  4.  implementation  features  such  as 
the  TREET  Filing  System. 

Statements  in  the  TREET  language  are  procedure-oriented  as  is 
ALGOL  or  PL/I;  they  are  unusual  for  their  syntactic  simplicity  yet 
potential  complexity  (the  complete  syntax  is  given  in  the  appendix) . 
Programs  are  built  as  sets  of  functions  which  may  be  executed  for  their 
value  and/or  their  effect. 

The  data  structures  consist  of  atoms  and  lists.  Atoms  include 
symbols,  integers,  reals  (optional),  literals,  and  cards.  A  card  is 
a  dynamically  allocated  internal  image  of  a  Hollerith  card;  it  is 
believed  to  be  unique  to  the  TREET  system. 

Lists  make  use  of  a  three-address  list  cell.  Two  of  the  addresses 
are  used  in  the  ordinary  fashion  (i.e.  pointing  to  members  and  chaining 
list  cells  together)  while  the  use  of  the  third  is  undefined  (it  is 
useful  for  backward  chaining,  marking,  parent  pointing,  etc.).  Cells 
are  dynamically  allocated  and  are  automatically  reclaimed  as  necessary. 

^The  name  "TREET"  is  not  an  acronym  but  is  intended  to  suggest  the  use 
of  tree  structures. 


The  TREET  system  is  implemented  on  the  IBM  360  series  computers 

under  OS/360  and  takes  advantage  of  many  of  the  features  of  third 

generation  software.  TREET  makes  heavy  use  of  a  private  disk  pack. 

In  addition  to  containing  the  many  components  of  the  system  itself, 

the  disk  pack  may  contain  various  user  data  sets.  The  TREET  system 

can  access  core  load  data  sets,  sequential  data  sets,  members  of  par- 

tioned  data  sets,  and  TREET  filing  system  data  sets.  The  TREET  filing 

system  is  particularly  useful  for  volatile  files. 

Another  powerful  feature  is  the  TREET  Assembly  Program,  a  macro 

assembler  which  offers  convenient  access  to  lower  levels  of  the  system. 

The  TREET  language  was  born  as  a  variation  on  the  LISP  1.5  source 
2 

language  ,  imbedded  in  a  LISP  system  [2].  In  1965  it  was  implemented 
on  the  IBM  7030  (STRETCH)  computer  at  the  MITRE  Corporation  for  use  in 
computational  linguistics  [3].  The  TREET-360  language  and  system  is  a 
direct  descendant  of  the  above;  the  system  has  been  operational  since 
mid  1967 . 

This  paper  as  a  whole  may  be  taken  as  a  description  of  the  present 
implementation.  The  presentation  is  partly  tutorial  but  is  not  suf¬ 
ficient  to  serve  as  a  primer  for  the  language,  much  less  as  a  reference 

3 

manual  for  the  system. 

LISP  2  [4]  is  also  a  development  from  LISP  1.5.  The  LISP  2  system 
differs  substantially  from  TREET  in  that  it  is  a  much  more  ambitious 
project  (it  includes  the  numeric  facilities  and  efficiencies  of  ALGOL) , 
uses  a  source  language  strongly  based  on  ALGOL,  and  uses  somewhat 
different  data  structures. 

3 

A  reference  manual  is  in  preparation;  meanwhile  the  system  is  documented 
by  a  series  of  newsletters. 
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The  remainder  of  the  paper  consists  of  the  following  sections: 

2.0  Basic  Concepts 

an  introduction  to  TREET  programming 
3.0  Implementation  Dependent  Features 

a  brief  description  of  the  most  important  auxiliary  facilities 
4.0  Discussion 
5.0  The  Implementation 
6.0  Conclusion 
Appendix 

a  semi-formal  summary  of  the  input  syntax  for  data  and  commands, 
in  particular  the  definition  of  functions 


2 . 0  Basic  Concepts 
2.1  Data 


The  data  of  the  TREET  System  are  list  structures.  A  list  structure 
is  an  atom  or  a  list  of  list  structures.  Atoms  consist  of  symbols, 
numbers,  literals,  cards,  and  the  empty  list,  NIL.  Symbols  are  di¬ 
vided  into  class  1  symbols  which  contain  1-24  alphanumeric  characters 
and  class  2  symbols  which  are  composed  of  special  characters  other  than 
blank  and  parentheses.  The  unqualified  word  "symbol"  means  a  class  1 
symbol.  Numbers  are  integers  or  (optionally)  reals.  Literals  consist 
of  any  number  of  arbitrary  characters.  A  card  is  a  dynamically  allocated 
internal  image  of  a  Holerith  card.  The  empty  list,  NIL,  is  considered 
to  be  both  an  atom  and  a  list.  All  atoms  may  be  used  as  data;  in  addi¬ 
tion,  symbols  may  have  a  value,  a  property  list,  and  a  function  defi¬ 
nition  . 

A  list  may  contain  any  number  of  members;  it  is  represented  in  core 
memory  as  a  group  of  list  cells  (one  for  each  member)  chained  together 
by  their  REM  fields.  The  REM  field  of  the  last  cell  contains  (points 
to)  NIL.  The  MEM  field  of  each  cell  points  to  the  member,  which,  being 
a  list  structure,  may  be  either  a  list  or  an  atom.  A  third  field  of 
each  cell,  the  CNT  field,  does  not  contribute  to  the  external  structure 
of  the  list  and  may  be  used  for  any  purpose  desired.  Typical  applica¬ 
tions  of  the  CNT  field  are  backward  links  (to  form  a  doubly  chained  list), 
pointers  to  associated  structures,  markers,  and  parent  pointers  (e.g. 
in  a  representation  of  a  tree,  each  node  may  contain  a  pointer  to  its 
parent) .  Lists  are  written  externally  as  their  members  enclosed  in 
parentheses . 
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Examples  of  list  structures: 

25 

SYMBOL 

(THIS  IS  A  LIST  OF  SYMBOLS) 

((THIS  IS)  (A)  (LIST  OF  LISTS)) 

'THIS  IS  A  LITERAL' 

(PI  =  3  +  .14  +  , . .) 

For  a  more  precise  specification  of  the  external  form  of  list  struc¬ 
ture,  see  the  Appendix.  Normally  the  internal  form  of  list  structure 
will  correspond  to  the  external  form  but  with  the  addition  of  cards  and 
common  sublists.  However,  there  is  nothing  to  prohibit  the  use  of 
arbitrary  list  structure  pointers  in  any  field  (e.g.  circular  structures). 

When  dealing  with  complicated  list  structures,  it  is  often  helpful 
to  diagram  the  actual  cell  structure.  A  list  cell  is  represented  by  a 
rectangle  divided  into  squares.  The  leftmost  square  represents  the  MEM 
field,  the  center  square  (if  used)  represents  the  CNT  field,  and  the 
rightmost  square  represents  the  REM  field.  A  pointer  to  another  list 
cell  is  represented  by  an  arrow.  A  pointer  to  a  symbol  is  represented 
by  writing  the  symbol  itself  in  the  square.  A  pointer  to  NIL  is  re¬ 
presented  by  a  diagonal  line  through  the  square. 

Examples : 

((A  B)  C  NIL  ((D))  E); 
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The  doubly  chained  list  (A  B  C  D)  : 


2 . 2  Variables,  Assignment,  and  Quotation 

A  variable  is  a  symbol.  To  assign  a  value  to  a  variable  one  may 
write  an  assignment  statement.  For  instance  to  assign  the  value  1  to 
the  variable  A,  the  statement  A=l;  will  suffice.  The  statement  B=A; 
would  then  result  in  B  also  being  set  to  1.  To  set  A  to  the  symbol  B, 
it  is  necessary  to  quote  the  symbol  as  in  A=Q(B) ;  .  To  quote  a  symbol, 
the  notation  A='B';  is  equivalent  (the  characters  within  the  primes 
must  meet  the  requirements  for  a  symbol,  otherwise  they  are  considered  to  com¬ 
prise  a  literal).  The  Q  form  of  quotation  may  be  used  to  quote  any  list 
structure  that  may  be  written.  Variables  are  not  restricted  to  a  par¬ 
ticular  type  of  data;  rather  all  variables  take,  as  their  values,  list- 
structures  and  all  list  structures  are  self  identifying.  (This  makes  for 
a  simpler  system  at  the  expense  of  less  efficient  arithmetic.  There  is 
no  fundamental  reason  why  this  must  be  so.  Cf.  LISP  2  [4].  ) 
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(2.3  Basic  Functions 


Given  a  list,  its  first  member  is  found  with  the  function  MEMl; 
the  remainder  of  the  list  is  found  with  the  function  REM1.  These 
functions  simply  extract  the  information  in  the  MEM  and  REM  fields, 
respectively,  of  the  list  cells.  Similarly  the  information  in  the  CNT 
field  is  extracted  with  the  function  CNT.  The  following  compositions 
of  MEMl  and  REM1  are  defined: 


MEM2 

The  second  member  (  MEMl  of  REMl  ) 

MEM  3 

The  third  member 

MEM4 

The  fourth  member 

MEMll 

MEMl  of  MEMl 

MEM12 

MEMl  of  MEM2 

MEM21 

MEM 2  of  MEMl 

REM2 

REMl  of  REMl 

REM3 

REMl  of  REM 2 

REM4 

REMl  of  REM 3 

MEMl,  REMl ,  and  CNT  applied  to  NIL  yield  NIL.  Thus  MEM2  of  a  list  with 
one  member  would  be  NIL. 

Examples : 


X  be  the 

list 

:  (ABC) 

MEMl (X) 

is 

A 

MEM 2  (X) 

is 

B 

MEM4 (X) 

is 

NIL 

REMl (X) 

is 

(B  C) 

REM 3  (X) 

is 

NIL 
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A  list  can  be  created  with  the  function  LIST.  LIST  takes  any 
number  of  arguments  and  produces  the  list  whose  members  are  its  argu¬ 
ments.  For  example  the  value  of  LIST('A',  LIST(!B'),  3)  is  (A  (B)  3). 

A  more  fundamental  operation  is  CONS  which  obtains  a  free  cell  from 
the  free  cell  list  and  inserts  its  first  argument  into  the  MEM  field 
and  its  second  argument  into  the  REM  field.  Thus  LIST(a,  b,  c)  is 
equivalent  to  CONS(a,  CONS(b,  CONS(c,  NIL))).  The  function  ADL  can  be 
used  to  add  a  member  at  the  beginning  of  a  list  pointed  to  by  a  variable. 
The  form  ADL(x,  a)  has  the  same  effect  as  a=CONS(x,  a)  . 

A  convenient  loop  control  function  is  WHILE.  WHILE  repetitively 
evaluates  each  of  its  two  arguments  until  the  value  of  the  first  is 
NIL,  i.e.  it  executes  the  second  argument  while  the  first  one  is  true. 
Lists  are  often  processed  by  working  on  the  first  member,  setting  the 
list  to  REMl  of  itself,  then  repeating  the  process  until  the  list  is 
exhausted.  The  function  CHOP  is  useful  in  this  context;  the 
effect  of  CHOP(X)  is  X=REM1(X)  and  its  value  is  MEMl(X) 

(using  the  original  value  of  X) .  Thus  a  typical  processing  loop  might  be 
WHILE (X,  process  (CHOP(X))); 

where  "process"  is  some  function  or  combination  of  functions. 

The  conditional  expression  is  IF.  It  is  written  IF  a  THEN  b  or 
IF  a  THEN  b  ELSE  c  with  the  obvious  meaning.  If  there  is  no  ELSE 
clause  and  the  predicate  is  false,  then  the  value  is  NIL.  Any  expres¬ 
sion  can  be  used  as  a  predicate;  the  value  NIL  means  false  and  any  other 
value  means  true.  The  most  useful  predicates  are  NULL(x)  ,  test  for  NIL 
(or  equivalently  NOT(x)  or  -ix) ,  and  EQUAL(x,  y) ,  test  for  two  struc¬ 
tures  equal.  The  primitive  EQ(x,  y)  tests  for  identical  structure, 

I.e.  identical  addresses.  There  is  a  set  of  predicates  to  test  for  the 
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various  types  of  data.  These  include  ATOM,  SYMP,  INTP,  CARDP ,  LISTP, 
etc.  AND  and  OR  can  be  used  in  the  obvious  way. 

2 .4  Property  Lists 

Besides  the  value  of  a  symbol,  an  arbitrary  number  of  properties 
and  corresponding  property  values  may  be  associated  with  a  symbol  (or 
class  2  symbol).  This  association  is  accomplished  with  a  property  list. 

The  property  list  can  be  accessed  directly  from  the  symbol  and  can  be  searched 
at  high  speed  since  it  is  usually  short.  The  three  basic  functions  for 
dealing  with  property  lists  are:  GET(symbol,  property),  value  is  the 
property  value  or  NIL  if  none;  SETPROP (symbol ,  property,  property  value), 
used  to  add  a  property  and  value  if  not  already  there  or  to  change  a 
value;  REMPROP (symbol ,  property),  used  to  remove  a  property  from  a 
symbol.  (Function  definitions  are  also  stored  on  the  property  list 
but  are  accessed  with  different  functions  and  are  invisible  to  GET.) 

2 . 5  Arithmetic 

The  arithmetic  functions  are  +,  - ,  *,  /,  ABSV,  ATAN,  COS,  EXP,  EXPE , 

FIX,  FLOAT,  GENRAN,  INTDIV,  INTP ART,  LN,  SIN,  and  SQROOT .  The  arith¬ 
metic  predicates  are  EQN,  <,  >  >  <=,  and>  =  .  Most  arithmetic  functions 
and  predicates  take  any  combination  of  integer  or  real  arguments.  The 
10  routines  provide  for  optional  exponential  notation.  Since  numbers  are 
stored  indirectly  and  type  conversion  is  often  necessary,  execution  is 
substantially  slower  than  in  FORTRAN  type  languages  (however,  individually 
assembled  routines  can  be  easily  added;  routines  such  as  SIN  and  EXP  are 
taken  from  the  FORTRAN  library) .  The  sections  dealing  with  real  numbers 
are  optional;  they  may  be  excluded  to  conserve  space  if  they  are  not 
needed  (which  is  quite  often  the  case)  . 
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2.6  Function  Definition 


Programs  in  TREET  are  written  as  sets  of  functions.  A  function 
takes  some  number  of  arguments  and  produces  a  single  value.  A  func¬ 
tion  may  also  produce  other  results  such  as  setting  a  non-local  vari¬ 
able,  printed  output,  etc.  Functions  may  be  executed  for  their  value, 
their  side  effects,  or  both. 

A  function  is  defined  with  the  defining  function,  DEF .  The  argu¬ 
ments  of  DEF,  taken  together,  form  a  definition  that  is  translated  into 
an  internal  format  (Cambridge  Polish) .  Consider  the  following  defini¬ 
tion  of  the  factorial  function: 

DEF (  FACTORIAL  (X)  (Y) 

Y=l; 

WHILE (X>0,  DO ( 

Y=Y*X ; 

X=X-1 ; 

)) ; 

RET  Y; 

)  ** 

There  are  five  parts  to  this  definition: 

1.  The  DEF  with  the  outer  parentheses  (common  to  all  definitions); 

2.  the  name  of  the  function,  FACTORIAL; 

3.  the  argument  list,  containing  the  single  variable  X; 

4.  The  variable  list,  containing  the  variable  Y; 

5.  the  body  of  the  definition,  containing  three  statements. 

(The  double  asterisk  is  not  part  of  the  definition  but  guarantees  that 
a  syntax  error  would  not  be  propagated  past  it.) 
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Variables  are  bound  by  mentioning  them  in  either  the  argument  list 
or  the  variable  list.  Any  previous  value  of  the  variable  is  auto¬ 
matically  preserved  upon  entry  and  exit  from  the  function.  A  variable 
that  is  not  bound  is  called  free  (with  respect  to  the  function) .  If  a 
variable  is  not  bound  at  any  level  (when  referenced) ,  it  is  considered 
to  be  a  system  variable. 

At  the  entrance  to  a  function?the  variables  in  the  argument  list 
are  set  to  the  appropriate  arguments.  The  variables  in  the  variable 
list  are  set  to  NIL;  free  variables  are  not  changed.  In  the  above 
example  both  X  and  Y  are  bound  variables  and  there  are  no  free  vari¬ 
ables  . 

The  function  is  terminated  either  when  a  RET  is  encountered  or  when 
it  runs  out  of  statements.  Its  value  is  the  argument  of  RET,  or  NIL, 
respectively.  Branching  is  requested  by  B;  the  argument  of  B  must  be 
a  local  label  (defined  by  a  colon) . 

Detailed  information  on  the  syntax  of  function  definitions  is 
given  in  the  appendix;  it  is  intended  that  the  examples  given  here  be 
simple  enough  to  be  understood  without  explanation. 

Further  examples: 

DEF (  FACTORIAL  (X)  ()  ^RECURSIVE  DEFINITION 

RET  IF  X  EQUAL  0  THEN  1  ELSE  X*FACTORIAL (X- 1) ; 

\  «JU«JU 

I  vv  /v 

DEF (  FACTORIAL  (N)  (M)  M=l;  ^EXPLICIT  LOOP 

LP:  IF  N<1  THEN  RET  M; 

M=M*N ;  N=N-1 ;  B  LP ; 
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a  function  to  reverse  the  top  level  of  a  list: 

DEF (  REVERSE  (A)  (B) 

WHILE (A,  ADL(CHOP(A) ,  B) ) ;  RET  B ; 

)  ** 

a  function  to  test  for  membership  of  one  structure  in  another: 

DEF (  MEMBER  (THING  LIST)  () 

WHILE (LIST,  IF  THING  EQUAL  CHOP (LIST)  THEN  RET  'TRUE'); 

)  ** 

2 . 7  Commands 

All  transactions  in  the  TREET  system  are  done  via  commands.  A 
command  is  simply  a  request  to  the  system  to  execute  a  function.  Any 
function  currently  defined  in  the  system  may  be  so  executed.  A  com¬ 
mand  is  written  as  the  name  of  the  function  to  be  executed  followed  by 
the  list  of  arguments  to  be  used  by  the  function. 

Normally  all  input  to  the  TREET  System  is  in  terms  of  commands. 

The  system  reads  in  a  command,  prints  the  command,  executes  the  func¬ 
tion,  then  prints  the  value  of  the  function.  A  run  is  terminated  when 
there  is  no  more  input  or  upon  an  explicit  request  for  termination. 

If  an  error  is  detected  during  execution  of  a  command,  the  system 
prints  a  number  of  debugging  aids,  resets  the  system  to  standard  con¬ 
ditions,  then  continues  with  the  next  command.  If  a  syntax  error  is 
detected  while  trying  to  input  a  command,  the  normal  procedure  is  to 
skip  to  a  double  asterisk  and  continue  from  that  point.  The  double 
asterisk  may  be  freely  interspersed  between  commands  and,  if  there  are 
no  errors,  is  completely  ignored.  If  a  double  asterisk  is  found  any¬ 
where  except  between  commands,  it  is  considered  as  an  input  syntax 
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error.  The  double  asterisk  is  used  to  detect  gross  syntax  errors. 

The  section  at  fault  is  ignored  and  processing  continues  after  a 
double  asterisk. 

Note  that  a  function  definition  is  a  command.  It  is  the  function 
DEF ,  applied  to  an  arbitrary  number  of  arguments,  that  causes  a  func¬ 
tion  to  be  defined.  User  functions  may  also  be  executed  directly  with 
the  command.  For  example,  test  cases  for  the  functions  defined  in  the 
previous  section,  might  be  written  as  follows: 

MEMBER (  A  (A  B  C) )  **  value  is  TRUE 

MEMBER  (NO  (THIS  IS  A  LIST))  **  value  is  NIL 

REVERSE (  (A  B  C  D  E  F)  )**  value  is  (F  E  D  C  B  A) 

Another  common  way  to  execute  a  function  is  with  the  E  command.  E  is 
a  function  that  takes  an  expression  as  its  argument  list.  E  evaluates 
the  expression  and  returns  its  value.  The  function  SET  may  be  used  to 
set  the  value  of  a  variable.  The  above  example  of  REVERSE  could  have 
been  done  as  follows : 

SET(X  (A  B  C  D  E  F) )  E (REVERSE (X) )  ** 

As  can  be  seen  from  the  above  examples,  the  input/output  process 
for  simple  problems  is  handled  completely  by  the  system  with  no  10 
statements  written  by  the  user. 

2 . 8  Changing  List  Structure 

So  far,  none  of  the  functions  introduced  have  resulted  in  the 
changing  of  list  structure.  The  functions  have  either  dealt  with 
existing  list  structure  or  have  created  new  list  structure  (via  the 
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elementary  operation  CONS) .  The  three  elementary  functions  to  change 
list  structure  are  RPMEM,  replace  the  MEM  field,  RPREM,  replace  the 
REM  field,  and  RPCNT,  replace  the  CNT  field.  These  functions  must  be 
used  with  extreme  caution  as  it  is  all  too  easy  to  change  the  wrong 
field  or  to  create  undesired  side  effects.  Although  all  programming 
could  be  written  so  as  not  to  change  list  structure,  it  is  often  much 
more  straightforward  and  efficient  to  do  so. 

An  undesired  side  effect  could  be  caused  by  DREVERSE  whose  value 
is  the  same  as  REVERSE,  namely  the  reversed  list  of  its  arguments. 
DREVERSE  operates  by  physically  changing  all  the  REM  fields  of  the  top 
level  list  to  point  in  the  opposite  direction.  Assume  X  has  the  value 
(A  B  C  D) .  Consider  the  following  code: 


Y=X ;  &  SET  Y  TO  (A  B  C  D) 


Y=DRE VERSE (Y) ;  &  SET  Y  TO  (D  C  B  A) 


Now  X,  which  still  points  to  the  cell  whose  MEMl  is  A,  has  the  value 
(A)  !  (DREVERSE  is  much  more  efficient  that  REVERSE  in  that  it  oper¬ 

ates  in  a  single  pass  through  the  list  and  requires  no  new  cells.) 
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3 -0  Implementation  Dependent  Features 


3 . 1  TREET  Assembly  Program 

The  TREET  Assembly  Program,  TAP,  is  a  macro  assembler  that  is 
specifically  oriented  toward  list  processing.  It  is  used  to  code 
elementary  functions  and  to  assemble  the  output  from  the  compiler. 

It  can  also  be  used  to  optimize  critical  inner  functions  if  necessary. 
The  op  codes  (macros)  are  divided  into  two  groups:  1.  the  instructions 
of  the  machine  itself  and  2.  a  set  of  semi-machine-independent  basic 
list  processing  operations  such  as  MEMl,  B,  CHOP,  IF.  Semi -machine- 
independent  means  that  these  instructions  could  be  identical  on 
another  machine  if  it  had  the  same  sort  of  register  architecture  (the 
present  form  is  suitable  for  IBM  360,  SIGMA  7,  IBM  7030  STRETCH, 
etc.,  but  not  the  IBM  7090). 

TAP  is  a  simple,  in-core,  assembler.  It  provides  just  enough 
features  to  satisfy  basic  programming  needs.  It  does  not  provide 
relative  addressing  or  use  of  other  than  the  standard  base  register  or 
other  than  essential  pseudo  ops.  What  does  TAP  provide  that  is  not 
found  in  BAL  (360  Basic  Assembly  Language)? 

1.  Direct  use  of  TREET  data  structures  (principally  variables), 

2.  Convenient  linkage  with  other  functions  regardless  of  what  language 
they  are  coded  in  (and  this  can  change  dynamically) , 

3.  Dynamic  usage  (run  time  assemblies), 

4.  Dynamic  loading  of  assembled  functions, 

5.  Incremental  linkage  (linkages  to  other  functions  are  not  estab¬ 
lished  until  used) . 
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Examples:  (See  previous  section  for  the  TREET  definitions  of  these 

functions . ) 


DEFT( 

REVERSE 

LP 

OUT 

notes : 


DEFT  ( 

MEMBER 

LP 

OUT 

Notes : 


(REVERSE)  R  ( 

(SAVE0)  (LR  2  0) 

(NULL  1  OUT)  &  IF  FINISHED 
(CHOP  1  3)  (ADL  3  2)  (B  LP) 

(LR  1  2)  (RET0) 

) )  ** 

1.  The  argument  is  supplied  in  register  1. 

2.  Register  0  always  contains  NIL. 

3.  Registers  1-3  are  used  for  intermediate  results. 

4.  The  value  is  returned  in  register  1. 

(MEMBER)  R  ( 

(SAVE  2)  (LR  11  1)  (LR  12  2)  (LR  1  0) 

(NULL  12  OUT)  &  IF  FINISHED  LIST,  VALUE  IS  NIL 
(CHOP  12  1)  (LR  2  11)  (LINK  EQUAL) 

(NULL  1  LP)  &  IF  NOT  EQUAL 
(RET2) 

) )  ** 

1.  The  arguments  are  supplied  in  registers  1  and  2. 

2.  Registers  11  and  12  are  "safe"  over  the  use  of  EQUAL 
(or  any  other  function  for  that  matter) . 

3.  The  value  of  EQUAL  is  returned  in  register  1  and  is  used 
as  the  value  of  MEMBER  (except  where  the  second  argument  was 
originally  NIL)  . 
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3 . 2  Core  Swap 


The  Core  Swap  facility  writes  and  reads  binary  images  of  variable 
core  to  or  from  a  disk  data  set.  Any  number  of  core  images  can  be 
written  on  one  data  set.  Simultaneous  access  to  two  data  sets  provides 
flexibility  such  as  copying  core  images  and  use  of  temporary  disk  space. 
Core  swapping  is  useful  for: 

1.  loading  and  saving  an  existing  system  (this  is  much  faster  than 
loading  the  functions  and  data  separately) , 

2.  a  segmentation  scheme  for  problems  too  big  to  fit  into  available 
core , 

3.  implementation  of  a  rudimentary  time-sharing  facility. 

3 . 3  Data  Set  Access 

The  IBM  360  Operating  System  provides  a  powerful  facility  for  hand¬ 
ling  files  (called  data  sets)  on  disk,  tape,  cards  etc.  The  TREET  System 
provides  functions  which  read  and  write  card  format  sequential  data  sets 
(or  members  of  partitioned  data  sets)  using  the  Queued  Sequential  Access 
Method  (QSAM) .  The  data  set  is  specified  on  a  DD  card  and  the  name  of 
the  DD  card  is  specified  to  the  read  (or  write)  function.  Thereafter, 
sequential  card  images  are  read  in  internal  data  cards.  The  TREET  user 
can  thus  read  and  write  list  structure  or  text  to  the  outside  world  and/or 
secondary  storage.  (An  independent  utility  called  ALTER  is  available 
to  copy  and/or  modify  card- like  data  sets;  also  numerous  OS  programs  can 
operate  on  card  data  sets.)  Note  that  a  card  data  set  can  be  a  card 
reader,  card  punch,  line  printer,  tape,  sequential  (or  member  of  a  par¬ 
titioned)  direct  access  data  set  on  public  or  private  disk  pack,  drum 
data  cell,  etc.  Any  number  of  data  sets  may  be  accessed  within  a  run. 
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3 . 4  TREET  Filing  System 


The  TREET  Filing  System  provides  access  to  page  oriented  files  on 
direct  access  data  sets.  The  pages  (on  disk)  are  of  fixed  size  and  are 
allocated  dynamically.  A  file  is  an  ordered  set  of  pages.  A  file 
directory  is  maintained  at  the  beginning  of  each  data  set.  Files  may 
be  updated  or  structurally  changed  without  rewriting  the  entire  file 
(and  without  worrying  about  allocation).  Logically,  the  pages  consist 
of  zero  to  twenty  cards.  This  structure  is  specifically  oriented 
toward  use  with  character  displays  such  as  the  IBM  2260. 

The  Filing  System  centers  around  the  following  five  basic  access 
functions : 

GETDIR  (Get  Directory)  -  Given  the  name  of  a  file,  return  the  list  of 
page  numbers  (addresses)  that  comprise  that  file  (if  any) . 

GETPAGE  (Get  Page)  -  Given  a  page  number,  return  that  page  (as  a  list 
of  cards) . 

SETDIR  (Set  Directory)  -  Given  a  set  of  page  numbers  and  the  name  of  a 
file,  update  the  directory  and  release  the  old  pages  if  any.  (Some 
variations  are  possible  for  special  purposes.) 

SETPAGE  (Set  Page)  -  Given  a  list  of  cards,  allocate  a  page  on  the  disk, 
write  out  the  cards  to  disk,  and  return  the  page  number  allocated. 
PUTPAGE  (Put  Page)  -  Given  a  list  of  cards  and  a  page  number,  write  out 
the  cards  to  the  disk.  PUTPAGE  differs  from  SETPAGE  in  that  an 
existing  page  is  updated  rather  than  a  new  page  being  allocated. 

There  are  also  eleven  utility  functions  (for  such  operations  as  copying 
and  printing  files)  plus  a  function  group  useful  for  writing  sequential 
files . 
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3 . 5  2260  Display  Access 

Routines  are  available  to  read  and  write  lists  of  cards  to  one  or 
more  2260  display  stations.  A  control  structure  is  provided  to  allow 
arbitrary  processing  of  inputs  from  the  display.  A  rudimentary  time¬ 
sharing  facility  using  core  swapping  has  been  written  and  a  more  exten 
sive  one  is  under  consideration.  An  online  editing  system,  based  on 
the  TREET  Filing  System,  is  available. 
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4.0  Discussion 


The  use  of  three-address  cells  (as  opposed  to  the  more  normal  two- 
address  cells)  is  a  controversial  question.  They  were  introduced  in 
the  STRETCH  implementation  of  TREET  because  it  cost  nothing  to  do  so 
(the  index  format  of  a  word  contained  three  addresses) .  This  turned 
out  to  be  so  useful  in  some  applications  that  it  was  decided  to  retain 
the  same  structure  in  the  360  implementation  even  though  it  cost  507o 
more  per  cell.  The  three  address  cells  prove  to  be  of  great  conven¬ 
ience  for  implementing  such  things  as  backward  pointers  and  parent 
pointers  of  non-trivial  structures.  The  convenience  arises  because  it 
can  be  arranged  that  the  inherent  structure  of  the  datum  is  defined 
without  using  the  third  address  thus  permitting  use  of  all  the  normal 
operations  on  list  structures  (particularly  printing) . 

The  question  is  not  clear  in  terms  of  efficiency.  For  symbols, 
literals,  and  complex  list  structures  (i.e.  ones  requiring  additional 
pointers)  the  use  of  three  addresses  per  cell  is  more  efficient 
than  the  use  of  two  addresses  per  cell.  On  the  other  hand  for  common, 
simple  list  structures,  the  third  address  is  wasted.  Another  possi¬ 
bility  is  to  have  two  or  more  sizes  of  cells,  say  with  two  and  four 

addresses  per  cell.  The  disadvantage  to  this  approach  lies  in  the 
additional  complexity,  both  in  the  system  routines  and  in  the  thinking 
and  programming  of  the  user . 

The  use  of  a  dynamically  allocated  "card"  is  believed  to  be  unique 
to  the  TREET  system.  The  usual  application  calls  for  a  list  of  cards 
to  store  text  such  as  natural  text,  programs,  and  commands  to  be  exe¬ 
cuted.  The  TREET  10  routines  (i.e.  list  structure  to  BCD  and  BCD  to 
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list  structure)  are  set  up  to  work  with  cards  as  well  as  directly  with 
the  system  input  and  output  streams.  Cards  are  used  both  for  dynamic 
buffering  and  as  data  to  be  manipulated  in  their  own  right.  The  for¬ 
mer  uses  cards  as  a  convenient  intermediate  form,  common  to  many  10 
operations,  e.g.  the  display,  external  data  sets,  filing  system,  etc. 

The  latter  occurs  when  it  is  desired  to  rearrange  the  cards  on  a  list 
or  to  access  or  to  manipulate  the  character  strings  directly  (as  opposed 
to  using  the  TREET  input  routine) . 
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5 . 0  The  Implementation 


The  TREET-360  system  operates  under  the  IBM  360  Operating  System 
(OS)  as  a  job  step.  The  system  is  highly  oriented  toward  the  use  of 
disk.  Our  installation  keeps  all  parts  of  the  system  as  well  as  several 
private  data  sets  on  a  single  private  disk  pack.  The  system  is  designed 
to  operate  in  a  large  core  of  200K  bytes  or  more  but  is  useful  in  half 
that  space.  The  entire  system  is  put  together  in  a  highly  modular 
fashion  to  permit  changes,  additions,  experimentation  and  tailoring  to 
a  specific  user. 

An  extremely  important  aspect  of  the  TREET  system  is  the  dynamic 
allocation  of  data  structure  (list  cells,  symbols,  literals,  numbers, 
cards)  as  needed  and  their  automatic  reclamation  when  necessary.  The 
mechanism  employed  in  treet  is  basically  the  same  as  that  used  in  LISP. 
When  a  cell  or  a  card  is  requested  and  none  are  available,  the  reclaimer 
(garbage  collector)  is  automatically  called  to  reclaim  all  cells  and 
cards  that  are  not  active.  The  user  does  not  normally  concern  himself 
with  this  process  at  all. 

The  TREET  system  includes  both  an  interpreter  and  a  compiler 
(both  optional) .  When  a  treet  function  definition  is  entered,  it  is 
translated  into  Cambridge  Polish  (the  language  of  LISP  1.5)  and  stored 
and/or  punched.  The  interpreter  "executes"  the  Cambridge  Polish. 
Optionally,  the  compiler  can  be  called  to  convert  the  Cambridge  Polish 
to  TAP  which  in  turn  is  assembled  by  the  TAP  assembler.  The  output 
from  TAP  can  be  loaded  and/or  punched.  It  is  intended  that  the  in¬ 
terpreter  be  used  for  debugging  as  it  provides  more  extensive  error 
checks  and  better  diagnostics.  The  compiler  can  be  called  when  the 
increased  efficiency  warrants  it. 
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A  cell  is  represented  in  core  by  three  words  (12  bytes) ,  divided 
into  a  one  byte  ID  field  and  three  address  fields.  The  primitive 
operations  MEM1  and  REM1  each  consist  of  a  single  load  instruction. 
Cells  are  stored  contiguously  in  cell  space.  One  bit  of  the  ID  field 
is  reserved  for  marking  by  the  reclaimer.  A  list  is  a  set  of  list 
cells  chained  by  their  REM  fields.  Symbols,  literals,  and  numbers  are 
also  represented  by  cells.  A  card  consists  of  21  words  (84  bytes)  in 
a  separately  allocated  card  space.  TAP  programs  are  loaded  into  binary 
space.  The  sizes  of  these  three  spaces  can  be  specified  at  the  start 
of  a  run.  The  total  of  the  three  spaces  is  determined  at  link  edit 
time.  Two  other  spaces  of  importance  are  the  pushdown  list  and  the 
Common  Symbol  Table  (used  to  link  TAP  programs  with  list  structures) . 
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6.0  Conclusion 


The  TREET  language  is  suitable  for  a  wide  class  of  non-numerical 
applications;  it  is  particularly  suitable  for  research  involving 
dynamic  symbolic  structures  in  areas  such  as: 

1.  Artificial  Intelligence 

2.  Text  Processing 

3.  Computational  Linguistics 

4.  Developing  higher  level  systems (problem  oriented  languages) 

5.  Symbolic  Mathematics 

The  TREET  system  for  the  360  has  been  operational  since  mid  1967 . 

It  has  been  used  primarily  for  text  processing  [5]  and  computational  lin¬ 
guistics  [6,  7].  Development  of  the  language  and  system  has  been  continuous; 
present  development  work  is  stressing  an  online  interactive  system 
using  the  IBM  2260  display  operating  in  a  partition  of  OS. 
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Appendix  Input  Syntax 


The  TREET  language  input  syntax  is  defined  in  an  augmented  Backus 
Normal  Form  notation  [8],  To  the  regular  Backus  symbols  (::  =  ,  |,  <, 

Vv  \  /V 

and  >)  the  following  have  been  added:  {,  },  [,  ],  ",  and  .  Their 
meaning  is  as  follows: 

: :=  is  defined  as  (assignment  operator) 

<name>  variables,  where  name  is  any  string  of  characters 
exclusive  or 

{  }  brackets  for  delimiting  an  entry 

[  ]  brackets  for  delimiting  an  optional  entry 

*  zero  or  more  occurrences  of  the  preceding  expression 

*»  zero  or  more  occurrences  of  the  preceding  expression 

separated  by  commas 

1* 

one  or  more  occurrences  of  the  preceding  expression 
Any  other  symbol  that  occurs  in  a  formula  stands  for  itself.  For 
example  the  rule 

* 

<list  structure>  : :=  <atom>  I  (  clist  structure>  ) 
means  that  a  list-structure  is  either  an  atom  or  it  is  a  left  paren¬ 
thesis  followed  by  any  number  of  list-structures  followed  by  a  right 
parenthesis . 

Data 

-k 

<list  structure>  : :=  <atom>  |  (  <list  structure>  ) 

note:  internal  list  structure  can  be  more  complex. 

<atom>  ::=  <symbol>  |  cclass  2  symbol>  |  <literal>  |  <number>  |  NIL 
notes:  1.  A  card  is  also  an  atom  but  must  be  input  separately. 

2.  The  empty  list,  NIL,  can  be  written  as  a  list  of  no  members 
or  as  NIL  (as  if  it  were  a  symbol) .  NIL  is  both  an  atom  and  a 

list  but  not  a  symbol. 


-25- 


<symbol>  : :=  any  combination  of  1-24  class  1  characters  that  does  not 
form  a  number  or  NIL 

Note:  a  symbol  is  delimited  by  class  2  and/or  class  3  characters 

except  that  +  ,  or  .  should  not  precede  a  symbol  where  the  first 
character  is  a  digit. 

<class  2  symbol>  : :=  -1  |  -  ]  ,  [  .  |  any  combination  of  1-24  class  2 

characters  except  ** 

Note:  a  class  2  symbol,  other  than  +or-,is  delimited  by  class  1 

and/or  class  3  characters. 

<quoted  symbol>  :  :=  'oymbo^1  |  ’NIL*  |  'eclass  2  symbol>*  j 
except  '  +  *  I  I  V  |  '  .' 


<literal>  :  :=  '<literal  character> 


except  quoted  symbol 


cliteral  character>  : :=  any  character  (a  prime  is  represented  as  a 
pair  of  primes) 


<number>  :  :=  <integer>  |  <real> 

r  I  i  ,  1* 

<integer>  : :=  L+  |  <digit> 

except  not  more  than  ten  digits  and  in  range 

*  * 

<real>  : :=  [+  -]  <digit>  .  <digit>  [E  <integer>] 


931  .  9 3 1  i 

-2  to  2  -1 


except:  1.  at  least  one  digit  must  be  present  before  or 

after  the  decimal  point.  2.  the  integer  following  the  E 
must  not  contain  more  than  two  digits.  3.  the  entire 
number  may  not  contain  more  than  24  characters, 
note:  numbers  should  be  terminated  by  class  2  or  3  characters 


<digit>  : :=  0 


...  9 
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cclass 

1 

character> 

: :=  <digit>  |  $  |  A  B  . 

cclass 

3 

character> 

: :=  blank 

•  |  "t" 

|  -  |  (  | 

cclass 

2 

charac ter> 

: :=  /  |  * 

|  =  |  :  | 

|  < 

>|  ?  |  #  |  7o  I  @  |  ~i  |  vertical  line  |  and  other  binary- 
representation 

note:  The  characters  listed  above  (the  PL/l  character  set)  are 

common  to  the  keypunch,  the  P/Q  printer  character  sets,  and  the 
2260  display.  In  addition  the  characters  ",  C,  and  !  can  be  key¬ 
punched  and  the  "  printed. 

Input  is  taken  from  columns  1-72  of  each  card  image  with  an  implied 
blank  before  column  one  of  each  card  unless  column  one  contains  a 
period.  When  column  one  contains  a  period  (the  continuation  convention), 
column  two  is  considered  to  directly  follow  column  72  of  the  previous 
card.  For  the  sake  of  error  diagnosis,  literals  cannot  be  continued 
across  card  boundaries  except  by  use  of  the  continuation  convention. 

Blanks,  other  than  those  necessary  for  delimiting  atoms  or  contained 
within  literals,  are  ignored. 

A  comment  begins  with  an  ampersand  and  is  terminated  either  by  the 
end  of  the  card  (column  72)  or  by  another  ampersand.  Comments  can  con¬ 
tain  any  character  except  an  ampersand;  they  may  not  be  continued  across 
cards.  Comments  are  ignored  unless  they  appear  at  the  top  level  between 
commands  in  which  case  they  are  printed  before  being  discarded. 

A  double  asterisk  (  **,  written  as  if  it  were  a  class  2  symbol) 
detected  at  any  point  other  than  between  commands  will  terminate  input 
with  a  complaint,  then  restart  with  the  next  character.  A  double 
asterisk  between  commands  is  ignored. 
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Commands 


<command>  : :=  <name>  (  <argument>  ) 

notes:  1.  <name>  can  be  the  name  of  any  function  currently  defined. 

It  will  normally  be  either  a  user  function  or  a  system  function  such 
as  DEF,  SET,  or  E. 

2.  The  argument  values  to  be  passed  to  the  function  are  actually 
written;  i.e.  the  list  structures  are  not  considered  as  expressions 
and  are  not  evaluated  but  rather  are  given  directly  to  the  function 
(use  the  <E  command > when  evaluation  is  desired). 

3.  The  parentheses  (or  NIL)  are  required  even  if  the  function  takes 
no  arguments. 

4.  The  liberal  use  of  the  double  asterisk  (**)  between  commands  is 
highly  recommended. 

<argument >  : :=  clist  structure> 

note:  Arguments  are  not  separated  by  commas. 

<name>  :  :=  <symbol>  |  cclass  2  symbol> 

note:  A  symbol  or  class  2  symbol  can  name  at  most  one  function  at 

a  time.  There  is  no  distinction  between  user  and  system  function 
names.  New  functions  must  be  named  so  as  not  to  conflict  with 
existing  functions. 

<E  command>  : :=  E  (  <expression>  ) 

note:  Syntactically  this  is  just  another  instance  of  <command>; 

it  is  listed  explicitly  because  of  its  importance.  The  meaning  is 
simply  to  evaluate  the  expression.  The  format  is  usually 
E(<variable>) ,  E(<form>),  or  E(<infix  expression>) . 
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<function  def inition>  : := 

DEF(  <name>  [<type>]  <argument  list>  <variable  list> 

*  * 

[  <label>  cstatement>  ] 

) 

notes:  1.  This  is  an  instance  of  <command>. 

2.  A  symbol  may  be  used  at  most  once  as  a  label  in  any  function 
definition . 

3.  The  final  n;"  (generated  by  <statement>)  is  unnecessary. 

<type>  : :=  R  |  U  j  F  [  FU 

vv 

<argument  list>  : :=  (  <variable>  ) 

<variable  list>  : :=  (  <variable>  ) 

<variable>  : :=  <symbol> 

except  IF  |  IFNOT  |  IFNULL  |  THEN  |  ELSE  |  RET 
<label>  : :=  <symbol>: 

^statement>  : :=  <functional  expression>;  |  ; 

<expression>  : :=  <variable>  |  <constant>|  <functional  expression>| 

(  <expression>  ) 

<constant>  : :=  <number>  |  <quoted  symbol>  |  <literal> 

<functional  expression>  : :=  cinfix  expression>  |  <prefix  expression> 
<form>  |  <if  expression>  |  <do  expressioh> 

<infix  expression>  : :=  <expression>  <infix  function  name>  <expression> 
except  the  first  expression  cannot  be  a  B  or  RET  prefix  expression, 
cinfix  function  name>  : :=  cinfix  comparison>  |  cother  infix  function> 
cinfix  comparisoro  : c  |  c=  j  >  \  >=  |  EQUAL  |  EQ  I  EQN  |  NEQ 
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<other  infix  function>  : :=  +  j  -  |  *  j  /  |  INTDIV  I  EXP  | 

=  |  MEMBER  |  MEMQ  |  APPEND  |  CONC  |  AND  |  OR 

note:  The  set  of  infix  functions  may  be  extended  or  modified  to 

meet  individual  needs  by  specifying  a  numerical  value  of  the  pro¬ 
perty  PRECEDENCE  of  the  function  name. 

<prefix  expression>  B  <label>  |  RET  <expression>  j  — i  <expression>  | 

+  <expression>  |  -  <expression> 

/V 

<form>  : :=  <function  name>  (  <expression>  ’ ) 

note:  The  form  may  be  used  to  invoke  almost  any  user  or  system 

function,  including  those  that  may  also  be  written  in  infix  or 
prefix  notation.  The  four  exceptions,  IF,  IFNOT,  IFNULL,  and  DO, 
occur  because  of  their  special  handling  by  the  translator.  Some 
of  the  more  important  system  functions  are  listed  in  the  body  of  this 
paper;  a  complete  list  of  them  appears  in  the  reference  manual. 

Note  that  many  of  the  separately  listed  statements  of  other  languages 
are  covered  by  this  format. 

<function  name>  : :=  <symbol>  |  <class  2  symbol> 
except  IF  |  IFNOT  |  IFNULL  |  DO 

<if  expression>  :  :=  [IF  |  IFNOT  |  IFNULL  }  <expression>  THEN  <expression> 
[  ELSE  <expression>  ] 

note:  If  an  ambiguity  arises  due  to  multiple  if-expressions  then 

the  ELSE  in  question  is  associated  with  the  closest  unmatched  THEN. 

•k 

<do  expression>  : :=  DO  (  <statement>  ) 
note:  The  final  is  unnecessary. 
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The  precedence  relations  between  multiple  prefix  and/or  infix  expres- 


sions 

level 

is  as  follows  (highest  to  lowest) : 

function  names 

precedence  within  level 

31 

=  )to  the  left) 

R  to  L 

29 

EXP 

R  to  L 

26 

INTDIV,  / 

L  to  R 

24 

/V 

grouped 

21 

prefix  -  (prefix  +  is  ignored) 

19 

- 

L  to  R 

17 

+ 

grouped 

14 

infix  comparisons,  MEMBER,  MEMQ, 

APPEND,  CONC ,  .  L  to  R 

12 

”•  (but  not  NOT) 

10 

AND 

grouped 

7 

OR 

grouped 

0 

RET,  =  (to  the  right) 

R  to  L  (=) 
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